program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arr = array [0..99] of integer;
var
  b : ^arr;
  i : integer;
begin
  new(b);
  for i:=0 to 99 do
    b^[i]:=i+1;
  dispose(b);
end.
 